home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / t.dxr / 00064.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  1.4 KB  |  43 lines
  1. global foremovie
  2.  
  3. on startpictset
  4.   global startpictnum
  5.   if (startpictnum = 2) or (startpictnum = 4) or (startpictnum = 6) then
  6.     set the castNum of sprite 3 to the number of member "002/004/006"
  7.   else
  8.     if (startpictnum = 3) or (startpictnum = 25) then
  9.       set the castNum of sprite 3 to the number of member "003/025"
  10.     else
  11.       if (startpictnum = 8) or (startpictnum = 27) then
  12.         set the castNum of sprite 3 to the number of member "008/027"
  13.       else
  14.         if (startpictnum = 11) or (startpictnum = 14) then
  15.           set the castNum of sprite 3 to the number of member "011/014"
  16.         else
  17.           if (startpictnum = 13) or (startpictnum = 23) then
  18.             set the castNum of sprite 3 to the number of member "013/023"
  19.           else
  20.             if (startpictnum = 17) or (startpictnum = 22) then
  21.               set the castNum of sprite 3 to the number of member "017/022"
  22.             else
  23.               if (startpictnum = 18) or (startpictnum = 19) then
  24.                 set the castNum of sprite 3 to the number of member "018/019"
  25.               else
  26.                 set a to digitchange(startpictnum)
  27.                 set the castNum of sprite 3 to the number of member a
  28.               end if
  29.             end if
  30.           end if
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35. end
  36.  
  37. on digitchange num
  38.   set a to num / 100
  39.   set b to (num - (100 * a)) / 10
  40.   set c to num - (100 * a) - (10 * b)
  41.   return a & b & c
  42. end
  43.